Trong Windows, qui định tên tập tin có độ dài tối đa là
A. 32 ký tự
B. 255 ký tự
C. 16 ký tự
D. 256 ký tự
cho một sâu kí tự St có độ dài tối đa 255 ký tự các ký tự được lấy từ tập'a'..'z''A'..'Z''0'..'9;
yêu cầu tách sâu st thành hai sâu st1 gồm các ký tự chữ cái xâu st2 gồm các ký tự chữ số các ký tự trong st1 và st2 vẫn được giữ nguyên thứ tụ từ trái sang phải
giúp mình với ạ
cho một sâu kí tự St có độ dài tối đa 255 ký tự các ký tự được lấy từ tập'a'..'z''A'..'Z''0'..'9;
yêu cầu tách sâu st thành hai sâu st1 gồm các ký tự chữ cái xâu st2 gồm các ký tự chữ số các ký tự trong st1 và st2 vẫn được giữ nguyên thứ tụ từ trái sang phải
giúp mình với ạ
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then write(st[i]);
writeln;
for i:=1 to d do
if (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Đọc từ tệp ‘xau.đặt’ ra 1 xâu ký tự s có độ dài tối đa 50 kí tự a, nếu trong xâu có 3 dấu cách thì xoá 2? b, chuyển các ký tự trong xâu thành in hoa? c, đếm các chữ số có trong xâu? Đưa các kết quả ra màn hình?
Viết chương trình nhập 1 xâu từ bàn phím, đưa ra:
a. Độ dài xâu.
b. Xâu đã xóa đi 1 ký tự đầu.
c. Xâu đã xóa đi 2 ký tự cuối.
d. Xâu đã xóa đi 1 ký tự giữa.
e. Xâu đã in hoa.
f. Vị trí của khoảng trắng đầu tiên.
g. Đếm số ký tự ‘a’ có trong xâu.
Viết chương trình nhập vào một xâu ký tự st có độ dài không quá 100. Hãy thay thế các ký tự "a" hoặc "A" thành ký tự "b" trong xâu st. Đưa kết quả ra màn hình.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='a') or (st[i]='A') then st[i]:='b'
writeln(st);
readln;
end.
a. Viết chương trình xoá các dấu cách thừa trong một xâu ký tự (giữa hai từ chỉ có một dấu cách )
B. Đổi các ký tự đầu từ của xâu sang chữ in hoa
C. Tách phần tên ra khỏi xâu gồm họ tên . Theo qui ước cách ghi tên của tiếng việt , tên là từ cuối cùng trong xâu.
Program HOC24;
var s: string;
i,x: byte;
begin
readln(s);
//-----------Câu a
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,1);
writeln(s);
//-------------Câu b
s[1]:=upcase(s[1]);
for i:=1 to length(s) do
if s[i]=#32 upcase(s[i+1]);
writeln(s);
//--------------Câu c
for i:=1 to length(s) do
if s[i]=#32 then x:=i;
for i:=x+1 to length(s) do
write(s[i]);
//---------------------------
readln
end.
Hãy viết chương trình nhập vào từ bàn phím một xâu ký tự, trong đó, nếu tính từ trái sang phải thì ký tự # là dấu hiệu xoá đi một ký đứng ngay trước nó nếu có. Sau đó in ra màn hình xâu đã sửa chữa theo đúng quy định code bằng c++ nha làm nhanh tối mình học rồi
thêm test đây nha:
Dữ liệu : Vào từ từ tệp Suaxau.Inp chứa xâu cần sửa.
Kết quả: Ghi vào tệp Suaxau.out xâu đã sửa.
Ví dụ:
Suaxau.INP | Suaxau.OUT |
Ta#oi thi hoc sinua#h###nh gioi tin hoj#c | Toi thi hoc sinh gioi tin hoc |
Bài tập xâu: Viết chương trình nhập xâu s từ bàn phím. In ra màn hình số lượng ký tự số, ký tự thường, ký tự hoa và ký tự đặc biệt.
uses crt;
var s:string;
i,d,dem1,dem2,dem3,dem4:integer;
begin
clrscr;
write('Nhap xau s:'); readln(s);
d:=length(s);
dem1:=0;
dem2:=0;
dem3:=0;
dem4:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1)
else if st[i] in ['a'..'z'] then inc(dem2)
else if st[i] in ['A'..'Z'] then inc(dem3)
else inc(dem4);
end;
writeln('So luong ky tu so la: ',dem1);
writeln('So luong ky tu thuong la: ',dem2);
writeln('So luong ky tu hoa la: ',dem3);
writeln('So luong ky tu dac biet la: ',dem4);
readln;
end.
Cho một xâu kí tự S chỉ toàn kí tự số 0 và 1. Biết rằng các kí tự số 0 đứng trước các ký tự số : 00....0011.....11.
Yêu cầu: Hãy cho biết vị trí của ký tự số 0 cuối cùng trong dãy.
Dữ liệu vào:
Chứa xâu kí tự S (Độ dài của xâu S≤107 và luôn có ký tự số 0 và ký tự số 1)
Kết quả:
Một số nguyên dương là vị trí của ký tự số 0 cuối cùng trong dãy.
Ví dụ
Input
Copy
0000011111
Output
Copy
Lưu ý:Dùng C++
var s:string;
i:integer;
begin
write('Nhap xau ki tu S = ');readln(s);
for i:=1 to length(s) do
begin
if s[i] <> '0' then write('Vi tri cua so 0 cuoi cung la ',i-1);
i:=length(s);
end;
readln;
end.
Ký tự tiếp theo trong dãy sau đây là ký tự nào: A , C , F , J , O , ?
Ký tự tiếp theo trong dãy sau đây là ký tự nào: A , C , F , J , O , U